*****TI85 PROGRAMS*****
Brought to you by Best of The Best & DG!

Click here to return to the main page!

Click here to get more programs!

NOTE:
When putting these programs in the sign (») is the STO button!

PROGRAM LIST

A program to calculate a persons age in Days, Months, and Years.

A calander program. It will help keep you organized. It includes a day to day memo recorder.

A program to allow you to chat between two TI85s.

A program to code messages. Also can be use within the chat program.

A password program to keep your private programs private.

A program to calculate the quadratic equation with numbers that you supply it.
These programs are freeware, but if you use them we ask that you keep every line the way that the writer has given it to us, unless you have writen consent from the writer or someone that maintains this page. Thank you!

If you have any problems with a program or a question then E-mail me at [email protected]. Thank you. Enjoy using these programs.
Also for instruction on any program that you don't understand E-mail me at [email protected].
Program one: Calander program

Lbl START
0»X
ClLCD
Outpt (1,1,M)
Outpt (1,12,YE)
Outpt (2,2,"S")
Outpt (2,5,"M")
Outpt (2,8,"T")
Outpt (2,11,"W")
Outpt (2,14,"T")
Outpt (2,17,"F")
Outpt (2,20,"S")
X+1»X
If X Then
Goto NEXT
End
Outpt (3,2,X)
Lbl NEXT
If X Then
Goto NEXT2
End
X+1»X
Lbl NEXT2
If X Then
Goto NEXT3
End
Outpt (3,5,X)
Lbl NEXT3
X+1»X
Outpt (3,8,X)
X+1»X
Outpt (3,11,X)
X+1»X
Outpt (3,14,X)
X+1»X
Outpt (3,17,X)
X+1»X
Outpt (3,20,X)
X+1»X
Outpt (4,2,X)
X+1»X
Outpt (4,5,X)
X+1»X
Outpt (4,8,X)
X+1»X
Outpt (4,11,X)
X+1»X
Outpt (4,14,X)
X+1»X
Outpt (4,17,X)
X+1»X
Outpt (4,20,X)
X+1»X
Outpt (5,2,X)
X+1»X
Outpt (5,5,X)
X+1»X
Outpt (5,8,X)
X+1»X
Outpt (5,11,X)
X+1»X
Outpt (5,14,X)
X+1»X
Outpt (5,17,X)
X+1»X
Outpt (5,20,X)
X+1»X
Outpt (6,2,X)
X+1»X
Outpt (6,5,X)
X+1»X
Outpt (6,8,X)
X+1»X
Outpt (6,11,X)
X+1»X
Outpt (6,14,X)
X+1»X
Outpt (6,17,X)
X+1»X
Outpt (6,20,X)
X+1»X
If X>D
Then
Goto ENDD
End
Outpt (7,2,X)
X+1»X
If X>D
Then
Goto ENDD
End
Outpt (7,5,X)
X+1»X
If X>D
Then
Goto ENDD
End
Outpt (7,8,X)
X+1»X
If X>D
Then
Goto ENDD
End
Outpt (7,11,X)
X+1»X
If X>D
Then
Goto ENDD
End
Outpt (7,14,X)
X+1»X
If X>D
Then
Goto ENDD
End
Outpt (7,17,X)
X+1»X
If X>D
Then
Goto ENDD
End
Outpt (7,20,X)
Lbl ENDD
Disp ""
Disp ""
Disp ""
Disp ""
Disp ""
Disp ""
Disp ""
InpSt "Day:",DAY
If DAY=="RESETDAY"
Then
Goto RESETDAY
End
If DAY=="RESET"
Then
Goto RESET
End
If Day=="1"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D1)
Disp ""
Disp ""
InpSt "New message:",D1
Goto START
End
If Day=="2"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D2)
Disp ""
Disp ""
InpSt "New message:",D2
Goto START
End
If Day=="3"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D3)
Disp ""
Disp ""
InpSt "New message:",D3
Goto START
End
If Day=="4"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D4)
Disp ""
Disp ""
InpSt "New message:",D4
Goto START
End
If Day=="5"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D5)
Disp ""
Disp ""
InpSt "New message:",D5
Goto START
End
If Day=="6"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D6)
Disp ""
Disp ""
InpSt "New message:",D6
Goto START
End
If Day=="7"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D7)
Disp ""
Disp ""
InpSt "New message:",D7
Goto START
End
If Day=="8"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D8)
Disp ""
Disp ""
InpSt "New message:",D8
Goto START
End
If Day=="9"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D9)
Disp ""
Disp ""
InpSt "New message:",D9
Goto START
End
If Day=="10"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D10)
Disp ""
Disp ""
InpSt "New message:",D10
Goto START
End
If Day=="11"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D11)
Disp ""
Disp ""
InpSt "New message:",D11
Goto START
End
If Day=="12"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D12)
Disp ""
Disp ""
InpSt "New message:",D12
Goto START
End
If Day=="13"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D13)
Disp ""
Disp ""
InpSt "New message:",D13
Goto START
End
If Day=="14"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D14)
Disp ""
Disp ""
InpSt "New message:",D14
Goto START
End
If Day=="15"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D15)
Disp ""
Disp ""
InpSt "New message:",D15
Goto START
End
If Day=="16"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D16)
Disp ""
Disp ""
InpSt "New message:",D16
Goto START
End
If Day=="17"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D17)
Disp ""
Disp ""
InpSt "New message:",D17
Goto START
End
If Day=="18"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D18)
Disp ""
Disp ""
InpSt "New message:",D18
Goto START
End
If Day=="19"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D19)
Disp ""
Disp ""
InpSt "New message:",D19
Goto START
End
If Day=="20"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D20)
Disp ""
Disp ""
InpSt "New message:",D20
Goto START
End
If Day=="21"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D21)
Disp ""
Disp ""
InpSt "New message:",D21
Goto START
End
If Day=="22"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D22)
Disp ""
Disp ""
InpSt "New message:",D22
Goto START
End
If Day=="23"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D23)
Disp ""
Disp ""
InpSt "New message:",D23
Goto START
End
If Day=="24"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D24)
Disp ""
Disp ""
InpSt "New message:",D24
Goto START
End
If Day=="25"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D25)
Disp ""
Disp ""
InpSt "New message:",D25
Goto START
End
If Day=="26"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D26)
Disp ""
Disp ""
InpSt "New message:",D26
Goto START
End
If Day=="27"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D27)
Disp ""
Disp ""
InpSt "New message:",D27
Goto START
End
If Day=="28"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D28)
Disp ""
Disp ""
InpSt "New message:",D28
Goto START
End
If Day=="29"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D29)
Disp ""
Disp ""
InpSt "New message:",D29
Goto START
End
If Day=="30"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D30)
Disp ""
Disp ""
InpSt "New message:",D30
Goto START
End
If Day=="31"
Then
ClLCD
Outpt (1,1,DAY)
Outpt (2,1,D31)
Disp ""
Disp ""
InpSt "New message:",D31
Goto START
End
If DAY=="EXIT"
Then
Goto EXIT
End
If DAY=="MESSAGES"
Then
" "»DAYS
lngth D1»LD1
lngth D2»LD2
lngth D3»LD3
lngth D4»LD4
lngth D5»LD5
lngth D6»LD6
lngth D7»LD7
lngth D8»LD8
lngth D9»LD9
lngth D10»LD10
lngth D11»LD11
lngth D12»LD12
lngth D13»LD13
lngth D14»LD14
lngth D15»LD15
lngth D16»LD16
lngth D17»LD17
lngth D18»LD18
lngth D19»LD19
lngth D20»LD20
lngth D21»LD21
lngth D22»LD22
lngth D23»LD23
lngth D24»LD24
lngth D25»LD25
lngth D26»LD26
lngth D27»LD27
lngth D28»LD28
lngth D29»LD29
lngth D30»LD30
lngth D31»LD31
ClCLD
If LD1>1
Then
DAYS+"1,"»DAYS
End
If LD2>1
Then
DAYS+"2,"»DAYS
End
If LD3>1
Then
DAYS+"3,"»DAYS
End
If LD4>1
Then
DAYS+"4,"»DAYS
End
If LD5>1
Then
DAYS+"5,"»DAYS
End
If LD6>1
Then
DAYS+"6,"»DAYS
End
If LD7>1
Then
DAYS+"7,"»DAYS
End
If LD8>1
Then
DAYS+"8,"»DAYS
End
If LD9>1
Then
DAYS+"9,"»DAYS
End
If LD10>1
Then
DAYS+"10,"»DAYS
End
If LD11>1
Then
DAYS+"11,"»DAYS
End
If LD12>1
Then
DAYS+"12,"»DAYS
End
If LD13>1
Then
DAYS+"13,"»DAYS
End
If LD14>1
Then
DAYS+"14,"»DAYS
End
If LD15>1
Then
DAYS+"15,"»DAYS
End
If LD16>1
Then
DAYS+"16,"»DAYS
End
If LD17>1
Then
DAYS+"17,"»DAYS
End
If LD18>1
Then
DAYS+"18,"»DAYS
End
If LD19>1
Then
DAYS+"19,"»DAYS
End
If LD20>1
Then
DAYS+"20,"»DAYS
End
If LD21>1
Then
DAYS+"21,"»DAYS
End
If LD22>1
Then
DAYS+"22,"»DAYS
End
If LD23>1
Then
DAYS+"23,"»DAYS
End
If LD24>1
Then
DAYS+"24,"»DAYS
End
If LD25>1
Then
DAYS+"25,"»DAYS
End
If LD26>1
Then
DAYS+"26,"»DAYS
End
If LD27>1
Then
DAYS+"27,"»DAYS
End
If LD28>1
Then
DAYS+"28,"»DAYS
End
If LD29>1
Then
DAYS+"29,"»DAYS
End
If LD30>1
Then
DAYS+"30,"»DAYS
End
If LD31>1
Then
DAYS+"31,"»DAYS
End
Disp DAYS
Pause
If DAY=="MESSAGES"
Then
Goto START
End
Lbl RESETDAY
InpST "Day:",DAY2
If DAY2=="1"
Then
" "»D1
End
If DAY2=="2"
Then
" "»D2
End
If DAY2=="3"
Then
" "»D3
End
If DAY2=="4"
Then
" "»D4
End
If DAY2=="5"
Then
" "»D5
End
If DAY2=="6"
Then
" "»D6
End
If DAY2=="7"
Then
" "»D7
End
If DAY2=="8"
Then
" "»D8
End
If DAY2=="9"
Then
" "»D9
End
If DAY2=="10"
Then
" "»D10
End
If DAY2=="11"
Then
" "»D11
End
If DAY2=="12"
Then
" "»D12
End
If DAY2=="13"
Then
" "»D13
End
If DAY2=="14"
Then
" "»D14
End
If DAY2=="15"
Then
" "»D15
End
If DAY2=="16"
Then
" "»D16
End
If DAY2=="17"
Then
" "»D17
End
If DAY2=="18"
Then
" "»D18
End
If DAY2=="19"
Then
" "»D19
End
If DAY2=="20"
Then
" "»D20
End
If DAY2=="21"
Then
" "»D21
End
If DAY2=="22"
Then
" "»D22
End
If DAY2=="23"
Then
" "»D23
End
If DAY2=="24"
Then
" "»D24
End
If DAY2=="25"
Then
" "»D25
End
If DAY2=="26"
Then
" "»D26
End
If DAY2=="27"
Then
" "»D27
End
If DAY2=="28"
Then
" "»D28
End
If DAY2=="29"
Then
" "»D29
End
If DAY2=="30"
Then
" "»D30
End
If DAY2=="31"
Then
" "»D31
End
If DAY=="RESETDAY"
Then
Goto START
End
Lbl RESET
If DAY=="RESET"
Then
Input "Point",X
Input "Days",D
InpSt "Month",M
InpSt "Year",YE
ClCLD
Goto START
Lbl EXIT
ClLCD
Disp "This program has been","brought to you by","Chris Shepherd"
Outpt (8,1,"press enter")
Pause
Stop

Go to top of page.

Program two: Age calculator

ClLCD
Input "This month:",MONTH
Input "This day:",DAY
Input "This year:",YEAR
Disp ""
Disp "Birth date,"
Input "Month:",BMONTH
Input "Day:",BDAY
Input "Year:",BYEAR
ClLCD
If MONTH>BMONTH
Then
YEAR-BYEAR»YOLD
End
If MONTH Then
YEAR-BYEAR-1»YOLD
End
If MONTH==BMONTH
Then
YEAR-BYEAR»YOLD
End
(YOLD-1)*12)+MONTH»MOLD
If MONTH==1
Then
((YOLD-1)*365.25)+31-(31-DAY)»DOLD
End
If MONTH==2
Then
((YOLD-1)*365.25)+59.25-(28-DAY)»DOLD
End
If MONTH==3
Then
((YOLD-1)*365.25)+90-(31-DAY)»DOLD
End
If MONTH==4
Then
((YOLD-1)*365.25)+120-(30-DAY)»DOLD
End
If MONTH==5
Then
((YOLD-1)*365.25)+151-(31-DAY)»DOLD
End
If MONTH==6
Then
((YOLD-1)*365.25)+181-(30-DAY)»DOLD
End
If MONTH==7
Then
((YOLD-1)*365.25)+212-(31-DAY)»DOLD
End
If MONTH==8
Then
((YOLD-1)*365.25)+243-(31-DAY)»DOLD
End
If MONTH==9
Then
((YOLD-1)*365.25)+273-(30-DAY)»DOLD
End
If MONTH==10
Then
((YOLD-1)*365.25)+304-(31-DAY)»DOLD
End
If MONTH==11
Then
((YOLD-1)*365.25)+334-(30-DAY)»DOLD
End
If MONTH==12
Then
((YOLD-1)*365.25)+365-(31-DAY)»DOLD
End
Goto NEXT
YOLD*365.25»DOLD
Lbl NEXT
round(DOLD,0)»DOLD
Outpt(1,1,"You are")
Outpt(1,9,DOLD)
Outpt(2,1,"days old")
Outpt(4,1,"You are")
Outpt(4,9,MOLD)
Outpt(5,1,"months old")
Outpt(7,1,"You are")
Outpt(7,9,YOLD)
Outpt(8,1,"years old")
Pause
ClLCD
Disp "This program has been","brought to you by","Chris Shepherd"
Outpt(8,1,"press enter")
Pause
ClLCD
Stop
 Go to top of page.
Program three: Chat program

To be used with the Coder program:
 ClLCD
Disp "What would you","like to do?"
Lbl MNU
Menu(1,"Input",INPT,2,"Send",SND,3,"Rcv",RCV,4,"Coder",CODE,5,"Quit",QUIT)
Lbl INPT
InpSt ":",TXT
ClLCD
Goto MNU
Lbl SND
Outpt("CBLSEND",TXT
Goto MNU
Lbl RCV
Input "CBLGET",TXT
Disp TXT
Goto MNU
Lbl CODE
"yes"»PASSW
CODE
CODED»TXT
ClLCD
Goto MNU
Lbl QUIT
ClLCD
Disp "This program has been","brought to you by","Chris Shepherd."
Outpt(8,1,"press enter")
Stop

For use without Coder program:

 ClLCD
Disp "What would you","like to do?"
Lbl MNU
Menu(1,"Input",INPT,2,"Rcv",RCV,5,"Quit",QUIT)
Lbl INPT
InpSt ":",TXT
ClLCD
Goto MNU
Lbl SND
Outpt("CBLSEND",TXT
Goto MNU
Lbl RCV
Input "CBLGET",TXT
Disp TXT
Goto MNU
Lbl QUIT
ClLCD
Disp "This program has been","brought to you by","Chris Shepherd."
Outpt(8,1,"press enter")
Stop
 Go to top of page.
Program four: Coder decoder program.

ClLCD
Lbl START
1»A
ClLCD
" "»ANSW
Disp "What would you","like to do?"
Menu(1,"CODE",CODE,2,"DECODE",DECOD,5,"EXIT",EXIT)
Lbl DECOD
"YES"»ANSW
Goto DECODE
Lbl CODE
ClLCD
" "»CODED
ClLCD
Inpst AB
AB»CODEDA
ClLCD
Lbl DECODE
ClLCD
If ANSW=="YES"
Then
CODED»AB
End
lngth AB»AA
lngth AB»V
For(X,1,V,1)
X»Y
Goto FOUR
Lbl FIVE
X+1»X
If X>21
Then
Y+1»Y
Goto DISA
End
X»Y
Lbl DISA
Lbl FOUR
(V-X)+1»V
If V Then
Goto ENDD
End
sub(AB,V,1)»VB
Goto TWO
Lbl One
If X==22 of X==43 or X=64 or X==85 or X==106 X==127 or X==148 or X==169 or X==190 or X==211
Then
A+1»A
1»Y
End
Outpt(A,Y,VB)
If ANSW=="YES"
Then Goto DISAB
End
CODED+VB»CODED
Lbl DISAB
lngth AB»V
Goto FIVE
Lbl TWO
If VB=="A"
Then
"Z"»VB
Goto THREE
End
If VB=="B"
Then
"Y"»VB
Goto THREE
End
If A=="C"
Then
"X"»VB
Goto THREE
End
If A=="D"
Then
"W"»VB
Goto THREE
End
If A=="E"
Then
"V"»VB
Goto THREE
End
If A=="F"
Then
"U"»VB
Goto THREE
End
If A=="G"
Then
"T"»VB
Goto THREE
End
If A=="H"
Then
"S"»VB
Goto THREE
End
If A=="I"
Then
"R"»VB
Goto THREE
End
If A=="J"
Then
"Q"»VB
Goto THREE
End
If A=="K"
Then
"P"»VB
Goto THREE
End
If A=="L"
Then
"O"»VB
Goto THREE
End
If A=="M"
Then
"N"»VB
Goto THREE
End
If A=="N"
Then
"M"»VB
Goto THREE
End
If A=="O"
Then
"L"»VB
Goto THREE
End
If A=="P"
Then
"K"»VB
Goto THREE
End
If A=="Q"
Then
"J"»VB
Goto THREE
End
If A=="R"
Then
"I"»VB
Goto THREE
End
If A=="S"
Then
"H"»VB
Goto THREE
End
If A=="T"
Then
"G"»VB
Goto THREE
End
If A=="U"
Then
"F"»VB
Goto THREE
End
If A=="V"
Then
"E"»VB
Goto THREE
End
If A=="W"
Then
"D"»VB
Goto THREE
End
If A=="X"
Then
"C"»VB
Goto THREE
End
If A=="Y"
Then
"B"»VB
Goto THREE
End
If A=="Z"
Then
"A"»VB
Goto THREE
End
If A=="0"
Then
"9"»VB
Goto THREE
End
If A=="1"
Then
"8"»VB
Goto THREE
End
If A=="2"
Then
"7"»VB
Goto THREE
End
If A=="3"
Then
"6"»VB
Goto THREE
End
If A=="4"
Then
"5"»VB
Goto THREE
End
If A=="5"
Then
"4"»VB
Goto THREE
End
If A=="6"
Then
"3"»VB
Goto THREE
End
If A=="7"
Then
"2"»VB
Goto THREE
End
If A=="8"
Then
"1"»VB
Goto THREE
End If A=="9"
Then
"0"»VB
Goto THREE
End
If A==","
Then
"-"»VB
Goto THREE
End
If A=="."
Then
" "»VB
Goto THREE
End
If A==" "
Then
"."»VB
Goto THREE
End
If A=="-"
Then
","»VB
Goto THREE
End
Lbl THREE
Goto ONE
Lbl ENDD
Pause
Goto START
Lbl EXIT
ClLCD
Disp "This program has been","brought to you by","Chris Shepherd"
Output (8,1,"press enter")
Pause
ClLCD
Stop
Program five: Password program

ClLCD
7»X
0»Y
Outpt (4,7,"Password")
Outpt (5,7,":")
Outpt (4,1,"#####")
Outpt (4,16,"#####")
Outpt (5,1,"#####")
Outpt (5,16,"#####")
Outpt (1,1,"####################")
Outpt (2,1,"####################")
Outpt (3,1,"####################")
Outpt (6,1,"####################")
Outpt (7,1,"####################")
Outpt (8,1,"####################")
Lbl START
getKy»KEY
If KET>0
Then
If KEY==105
Then
Goto NEXT
End
X+1»X
Y+KEY»Y
Outpt (5,x,"*")
End
Goto START
Lbl NEXT
If X=14 and Y=437
Then
Goto Ok
Else
Goto NO
End
Lbl NO
ClLCD
Oupt (4,8,"Wrong")
Stop
Lbl OK
ClLCD
Outpt (5,9,"Right")
Pause
ClLCD
Return

Instructions:

 Turn the calculator on. Press The button. Press the button. Type in PASS. Then type the program in as you see it. The password for this one is DEMIGOD. To find out how to change the password e-mail Chris Shepherd at [email protected]. To attivate the password program when someone starts a program to keep them out without your knowledge just Edit the program you wnat to protect and type PASS in the first line of the program.

Go to top of page.
Program six: Quadratic equation solver

Lbl Start
ClLCD
Input "Enter A:",A
Input "Enter B:",B
Input "Enter C:",C
ClLCD
B^2-(4*A*C)»P1
2*A»P2
B*-1»P3
"+-"»P6
Outpt (1,1,P3)
Outpt (1,4,P6)
Outpt (1,6,"û")
Outpt (1,8,P1)
Outpt (2,1,"---------------------")
Outpt (3,1,P2)
Pause
ClLCD
ûP1»PP1
Outpt (1,1,P3)
Outpt (1,5,P6)
Outpt (1,8,PP1)
Outpt (2,1,"---------------------")
Outpt (3,1,P2)
Pause
ClLCD
P3+PP1»PP2
P3-PP1»PP3
Outpt (1,4,PP2)
Outpt (2,1,"--------")
Outpt (3,4,P2)
Outpt (2,11,"&")
Outpt (1,17,PP3)
Outpt (2,14,"--------")
Outpt (3,17,P2)
Pause
ClLCD
PP2÷P2»PP4
PP3÷P2»PP5
Outpt (1,1,PP4)
Outpt (2,1,"&")
Outpt (3,1,PP5)
Pause
ClLCD
Disp "This program has been","brought to you by","Chris Shepherd!"
Outpt (8,1,"press enter")
Pause
Stop

Go to top of page.